inherited fmDoaForm: TfmDoaForm
  Left = 330
  Top = 143
  BorderIcons = []
  BorderStyle = bsSingle
  Caption = 'Doa '#304#351'lem Formu'
  ClientHeight = 404
  ClientWidth = 723
  KeyPreview = True
  PixelsPerInch = 96
  TextHeight = 13
  object PGDOA: TPageControl [0]
    Left = 0
    Top = 0
    Width = 723
    Height = 363
    ActivePage = TS1
    Align = alClient
    MultiLine = True
    ScrollOpposite = True
    TabOrder = 0
    TabStop = False
    object TS1: TTabSheet
      Caption = '  DOA  '
      object Label71: TLabel
        Left = 8
        Top = 30
        Width = 43
        Height = 13
        Caption = 'A'#231#305'klama'
      end
      object Label1: TLabel
        Left = 8
        Top = 113
        Width = 63
        Height = 13
        Caption = 'Eksik '#220'r'#252'nler'
      end
      object Panel3: TPanel
        Left = 0
        Top = 0
        Width = 715
        Height = 30
        Align = alTop
        BevelOuter = bvNone
        TabOrder = 0
        DesignSize = (
          715
          30)
        object btUrEmriOlustur: TBitBtn
          Left = 611
          Top = 1
          Width = 100
          Height = 25
          Cursor = crHandPoint
          Anchors = [akTop, akRight]
          Caption = #220'retim Emrini Getir'
          Enabled = False
          TabOrder = 0
          OnClick = btUrEmriOlusturClick
        end
      end
      object mmDoaAciklama: TDBMemo
        Left = 3
        Top = 46
        Width = 589
        Height = 56
        Color = 14811135
        DataField = 'DOAAciklama'
        DataSource = dmTeknik.spteknik_onarimS
        Font.Charset = TURKISH_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        ReadOnly = True
        TabOrder = 1
      end
      object reEksikUrunler: TwwDBRichEdit
        Left = 3
        Top = 131
        Width = 305
        Height = 128
        AutoURLDetect = False
        Color = clInfoBk
        DataField = 'EksikUrunler'
        DataSource = dsDoaUrEmri
        Font.Charset = TURKISH_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        PrintJobName = 'Delphi 5'
        ReadOnly = True
        TabOrder = 2
        EditorCaption = 'Edit Rich Text'
        EditorPosition.Left = 0
        EditorPosition.Top = 0
        EditorPosition.Width = 0
        EditorPosition.Height = 0
        MeasurementUnits = muInches
        PrintMargins.Top = 1.000000000000000000
        PrintMargins.Bottom = 1.000000000000000000
        PrintMargins.Left = 1.000000000000000000
        PrintMargins.Right = 1.000000000000000000
        RichEditVersion = 2
        Data = {
          B10000007B5C727466315C616E73695C616E7369637067313235345C64656666
          305C6465666C616E67313035357B5C666F6E7474626C7B5C66305C666E696C5C
          66636861727365743136327B5C2A5C666E616D6520417269616C3B7D41726961
          6C205455523B7D7D0D0A7B5C636F6C6F7274626C203B5C726564305C67726565
          6E305C626C7565303B7D0D0A5C766965776B696E64345C7563315C706172645C
          6366315C66305C667331365C7061720D0A7D0D0A00}
      end
    end
    object TS2: TTabSheet
      Caption = #220'retim Emri '#304'ncele'
      Enabled = False
      ImageIndex = 1
      TabVisible = False
      object grdUrEmri: TwwDBGrid
        Left = 0
        Top = 28
        Width = 715
        Height = 307
        DisableThemes = False
        ControlType.Strings = (
          'VarYok;CustomEdit;cbVarYok;T'
          'ArzSglm;CustomEdit;cbDurum;T'
          'Gonderilecek;CheckBox;True;False')
        Selected.Strings = (
          'stokkodu'#9'27'#9'Stokkodu'#9'T'
          'cinsi'#9'34'#9'Cinsi'#9'T'
          'miktar'#9'7'#9'Miktar'#9'T'
          'VarYok'#9'12'#9'Var - Yok'#9'F'
          'ArzSglm'#9'13'#9'Durum'#9'F'
          'Gonderilecek'#9'13'#9'G'#246'nderilecek mi?'#9'F')
        IniAttributes.Enabled = True
        IniAttributes.Delimiter = ';;'
        ExportOptions.Options = [esoShowHeader, esoShowFooter, esoDynamicColors, esoShowTitle, esoDblQuoteFields, esoShowAlternating, esoTransparentGrid]
        TitleColor = clBtnFace
        OnRowChanged = grdUrEmriRowChanged
        FixedCols = 0
        ShowHorzScrollBar = True
        Align = alClient
        DataSource = dsDoaUrEmrihar
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Pitch = fpVariable
        Font.Style = []
        KeyOptions = [dgEnterToTab]
        Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgCancelOnExit, dgWordWrap]
        ParentFont = False
        ReadOnly = True
        TabOrder = 0
        TitleAlignment = taLeftJustify
        TitleFont.Charset = TURKISH_CHARSET
        TitleFont.Color = clMaroon
        TitleFont.Height = -11
        TitleFont.Name = 'Microsoft Sans Serif'
        TitleFont.Pitch = fpVariable
        TitleFont.Style = []
        TitleLines = 1
        TitleButtons = True
        UseTFields = False
        OnCalcCellColors = grdUrEmriCalcCellColors
        OnFieldChanged = grdUrEmriFieldChanged
        FooterColor = 14978657
        FooterCellColor = 13948116
        PaintOptions.AlternatingRowColor = 16310998
        PaintOptions.ActiveRecordColor = 15183770
      end
      object Panel2: TPanel
        Left = 0
        Top = 0
        Width = 715
        Height = 28
        Align = alTop
        BevelOuter = bvNone
        TabOrder = 1
        DesignSize = (
          715
          28)
        object Label72: TLabel
          Left = 8
          Top = 6
          Width = 97
          Height = 13
          Caption = #220'retilecek Stokkodu'
        end
        object Label73: TLabel
          Left = 295
          Top = 6
          Width = 89
          Height = 13
          Caption = #220'retilecekZ- Paket'
        end
        object btSiparisOlustur: TBitBtn
          Left = 610
          Top = 0
          Width = 100
          Height = 25
          Cursor = crHandPoint
          Anchors = [akTop, akRight]
          Caption = 'Sipari'#351' Olu'#351'tur'
          Enabled = False
          TabOrder = 0
          OnClick = btSiparisOlusturClick
        end
        object cbUrStokkodu: TwwDBComboDlg
          Tag = 1
          Left = 108
          Top = 2
          Width = 163
          Height = 21
          ShowButton = True
          Style = csDropDown
          Color = clInfoBk
          DataField = 'SiparisStokkodu'
          DataSource = dsDoaUrEmri
          ReadOnly = True
          TabOrder = 1
          WordWrap = False
          UnboundDataType = wwDefault
          OnExit = StokkoduBul2
        end
        object cbUrZPaket: TwwDBComboDlg
          Tag = 1
          Left = 404
          Top = 2
          Width = 163
          Height = 21
          ShowButton = True
          Style = csDropDown
          Color = clInfoBk
          DataField = 'ZPaketStokkodu'
          DataSource = dsDoaUrEmri
          ReadOnly = True
          TabOrder = 2
          WordWrap = False
          UnboundDataType = wwDefault
          OnExit = StokkoduBul2
        end
      end
      object cbVarYok: TwwDBComboBox
        Left = 436
        Top = 75
        Width = 76
        Height = 21
        ShowButton = True
        Style = csDropDown
        MapList = True
        AllowClearKey = False
        AutoDropDown = True
        DropDownCount = 8
        ItemHeight = 0
        Items.Strings = (
          'Var'#9'True'
          'Yok'#9'False')
        Sorted = False
        TabOrder = 2
        UnboundDataType = wwDefault
      end
      object cbDurum: TwwDBComboBox
        Left = 512
        Top = 75
        Width = 82
        Height = 21
        ShowButton = True
        Style = csDropDown
        MapList = True
        AllowClearKey = False
        AutoDropDown = True
        DropDownCount = 8
        ItemHeight = 0
        Items.Strings = (
          'Sa'#287'lam'#9'True'
          'Ar'#305'zal'#305#9'False')
        Sorted = False
        TabOrder = 3
        UnboundDataType = wwDefault
      end
    end
    object TS3: TTabSheet
      Caption = 'Sipari'#351' Olu'#351'turma'
      Enabled = False
      ImageIndex = 2
      TabVisible = False
      object Panel1: TPanel
        Left = 0
        Top = 0
        Width = 715
        Height = 30
        Align = alTop
        BevelOuter = bvNone
        Enabled = False
        TabOrder = 0
        object Label70: TLabel
          Left = 8
          Top = 6
          Width = 48
          Height = 13
          Caption = 'Siapri'#351' No'
        end
        object Label74: TLabel
          Left = 200
          Top = 6
          Width = 65
          Height = 13
          Caption = 'Sipari'#351' Durum'
        end
        object Label2: TLabel
          Left = 423
          Top = 6
          Width = 49
          Height = 13
          Caption = 'MakinaNo'
        end
        object edSiparisNo: TwwDBComboDlg
          Tag = 1
          Left = 61
          Top = 2
          Width = 112
          Height = 21
          ShowButton = False
          Style = csDropDownList
          Color = clInfoBk
          DataField = 'siparisno'
          DataSource = dsDOASiparis
          ReadOnly = True
          TabOrder = 0
          WordWrap = False
          UnboundDataType = wwDefault
        end
        object cbSiparisDurum: TwwDBComboBox
          Left = 272
          Top = 2
          Width = 129
          Height = 21
          ShowButton = True
          Style = csDropDownList
          MapList = True
          AllowClearKey = False
          AutoDropDown = True
          Color = clInfoBk
          DataField = 'XXXDurum'
          DataSource = dsDOASiparis
          DropDownCount = 8
          ItemHeight = 0
          Items.Strings = (
            'Sipari'#351' Planlama'#9'1'
            'Planland'#305#9'2'
            'Beklemeye Al'#305'nd'#305#9'3'
            'Emir Listesinde'#9'4'
            'Emir Verilmi'#351#9'5'
            'Stoktan Verilmi'#351#9'6'
            #220'retilmeyi Bekliyor'#9'7'
            #220'retiliyor'#9'8'
            #220'retildi'#9'9')
          ReadOnly = True
          Sorted = False
          TabOrder = 1
          UnboundDataType = wwDefault
        end
        object edMakinaNo: TwwDBComboDlg
          Tag = 1
          Left = 476
          Top = 2
          Width = 112
          Height = 21
          ShowButton = False
          Style = csDropDownList
          Color = clInfoBk
          DataField = 'MakinaNo'
          DataSource = dsDOASiparis
          ReadOnly = True
          TabOrder = 2
          WordWrap = False
          UnboundDataType = wwDefault
        end
        object btYazdir: TBitBtn
          Left = 612
          Top = 1
          Width = 100
          Height = 25
          Caption = 'Yazd'#305'r'
          TabOrder = 3
        end
      end
      object grdSiparishar: TwwDBGrid
        Left = 0
        Top = 30
        Width = 715
        Height = 305
        DisableThemes = False
        Selected.Strings = (
          'Stokkodu'#9'25'#9'Stokkodu'
          'miktar'#9'10'#9'Miktar'#9'F')
        IniAttributes.Enabled = True
        IniAttributes.Delimiter = ';;'
        ExportOptions.Options = [esoShowHeader, esoShowFooter, esoDynamicColors, esoShowTitle, esoDblQuoteFields, esoShowAlternating, esoTransparentGrid]
        TitleColor = clBtnFace
        FixedCols = 0
        ShowHorzScrollBar = True
        Align = alClient
        DataSource = dsDOASiparishar
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Pitch = fpVariable
        Font.Style = []
        KeyOptions = [dgEnterToTab]
        Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgCancelOnExit, dgWordWrap]
        ParentFont = False
        ReadOnly = True
        TabOrder = 1
        TitleAlignment = taLeftJustify
        TitleFont.Charset = TURKISH_CHARSET
        TitleFont.Color = clMaroon
        TitleFont.Height = -11
        TitleFont.Name = 'Microsoft Sans Serif'
        TitleFont.Pitch = fpVariable
        TitleFont.Style = []
        TitleLines = 1
        TitleButtons = True
        UseTFields = False
        FooterColor = 14978657
        FooterCellColor = 13948116
        PaintOptions.AlternatingRowColor = 16310998
        PaintOptions.ActiveRecordColor = 15183770
      end
    end
  end
  object Panel4: TPanel [1]
    Left = 0
    Top = 363
    Width = 723
    Height = 41
    Align = alBottom
    TabOrder = 1
    DesignSize = (
      723
      41)
    object btKaydet: TBitBtn
      Left = 13
      Top = 7
      Width = 83
      Height = 28
      Caption = 'Kaydet'
      Enabled = False
      TabOrder = 0
      OnClick = btKaydetClick
    end
    object btKapat: TBitBtn
      Left = 631
      Top = 7
      Width = 83
      Height = 28
      Anchors = [akTop, akRight]
      Caption = 'Kapat'
      TabOrder = 1
      OnClick = btKapatClick
    end
  end
  object dsDOASiparishar: TDataSource
    DataSet = aqDOASiparishar
    Left = 164
    Top = 255
  end
  object dsDoaUrEmri: TDataSource
    DataSet = aqDoaUrEmri
    Left = 248
    Top = 126
  end
  object aqDoaUrEmri: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    Parameters = <
      item
        Name = 'FormNo'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      'Select * From DOAurEmri Where FormNo=:FormNo')
    Left = 72
    Top = 240
  end
  object aqDOASiparis: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    Parameters = <
      item
        Name = 'id'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      'Select *,'
      'XXXDurum=(select Top 1 Durum=(Select top 1 '
      '(Case '
      'When Sh.Durum is Null Then 0 '
      
        'When (isnull(e.aktarilanuremrino,0)<>0) and ((Select Count(*) Fr' +
        'om Uretim Where UretimNo=e.aktarilanuremrino and Paktar is not n' +
        'ull)>0) Then 9'
      
        'When (isnull(e.aktarilanuremrino,0)<>0) and ((Select Count(*) Fr' +
        'om Uretim Where UretimNo=e.aktarilanuremrino)>0) Then 8'
      
        'When (isnull(e.aktarilanuremrino,0)<>0) and ((Select Count(*) Fr' +
        'om Uretim Where UretimNo=e.aktarilanuremrino)=0) Then 7'
      'When Sh.stoktanmiverilecek=1 Then 6 '
      'When isnull(e.aktarilanuremrino,0)<>0 Then 5 '
      'When isnull(e.id,0)<>0 Then 4 '
      'Else Sh.Durum end) '
      'from unity_siparishar_2006 Sh with(nolock)'
      'left join unity_emirlistesi e on (e.siparisharid=sh.id)'
      'Where sh.Siparisid=Unity_Siparis_2006.id))'
      ',MakinaNo=(Select Top 1 Makinano from Uretim where '
      
        'UretimNo=(Select e.aktarilanuremrino from unity_siparishar_2006 ' +
        'Sh with(nolock)'
      
        'left join unity_emirlistesi e on (e.siparisharid=sh.id) Where sh' +
        '.Siparisid=Unity_Siparis_2006.id))'
      'From Unity_Siparis_2006 Where id=:id')
    Left = 64
    Top = 176
  end
  object aqDOASiparishar: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    Parameters = <
      item
        Name = 'siparisid'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      
        'Select Stokkodu=dbo.GetStokkodu(Stokkod),* From Unity_Siparishar' +
        '_2006 Where siparisid=:siparisid')
    Left = 172
    Top = 103
  end
  object aqDoaUrEmrihar: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    BeforePost = aqDoaUrEmriharBeforePost
    Parameters = <
      item
        Name = 'EmirNo'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      'Select * From DOAurEmriHar Where EmirNo=:EmirNo')
    Left = 95
    Top = 114
  end
  object dsDoaUrEmrihar: TDataSource
    DataSet = aqDoaUrEmrihar
    Left = 155
    Top = 198
  end
  object dsDOASiparis: TDataSource
    DataSet = aqDOASiparis
    Left = 265
    Top = 207
  end
  object TempBO: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    Parameters = <
      item
        Name = 'siparisid'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      
        'Select Stokkodu=dbo.GetStokkodu(Stokkod),* From Unity_Siparishar' +
        '_2006 Where siparisid=:siparisid')
    Left = 367
    Top = 118
  end
end
